DataUpdatable Property Example

This example demonstrates the DataUpdatable property using the first field from six different Recordsets. The DataOutput function is required for this procedure to run.

Sub DataUpdatableX()

   Dim dbsNorthwind As Database
   Dim rstNorthwind As Recordset

   Set dbsNorthwind = OpenDatabase("Northwind.mdb")

   With dbsNorthwind
      ' Open and print report about a table-type Recordset.
      Set rstNorthwind = .OpenRecordset("Employees")
      DataOutput rstNorthwind

      ' Open and print report about a dynaset-type Recordset.
      Set rstNorthwind = .OpenRecordset("Employees", _
         dbOpenDynaset)
      DataOutput rstNorthwind

      ' Open and print report about a snapshot-type Recordset.
      Set rstNorthwind = .OpenRecordset("Employees", _
         dbOpenSnapshot)
      DataOutput rstNorthwind

      ' Open and print report about a forward-only-type Recordset.
      Set rstNorthwind = .OpenRecordset("Employees", _
         dbOpenForwardOnly)
      DataOutput rstNorthwind

      ' Open and print report about a Recordset based on 
      ' a select query.
      Set rstNorthwind = _
         .OpenRecordset("Current Product List")
      DataOutput rstNorthwind

      ' Open and print report about a Recordset based on a 
      ' select query that calculates totals.
      Set rstNorthwind = .OpenRecordset("Order Subtotals")
      DataOutput rstNorthwind

      .Close
   End With

End Sub

Function DataOutput(rstTemp As Recordset)

   With rstTemp
      Debug.Print "Recordset: " & .Name & ", ";
      Select Case .Type
         Case dbOpenTable
            Debug.Print "dbOpenTable"
         Case dbOpenDynaset
            Debug.Print "dbOpenDynaset"
         Case dbOpenSnapshot
            Debug.Print "dbOpenSnapshot"
         Case dbOpenForwardOnly
            Debug.Print "dbOpenForwardOnly"
      End Select
      Debug.Print "  Field: " & .Fields(0).Name & ", " & _
         "DataUpdatable = " & .Fields(0).DataUpdatable
      Debug.Print
      .Close
   End With

End Function